home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / M2I / Rexx / TreeShow.M2I < prev   
Encoding:
Text File  |  1998-03-24  |  871 b   |  70 lines
  1. /* montre visuellement l' arborescence des Menus de M2I5 */
  2. /* Thierry Schmitt Avril 1996 */
  3.  
  4. ADDRESS "M2IPort.Rexx"
  5. OPTIONS RESULTS
  6.  
  7. m2ipenv = ":"
  8.  
  9. CALL explo
  10.  
  11. FLUSH
  12. MESSAGE "'a y-est ! Vous avez tout vu !!"
  13.  
  14.  
  15. EXIT
  16.  
  17.  
  18.  
  19. explo: PROCEDURE EXPOSE m2ipenv
  20.  
  21.   posdock = 1
  22.  
  23.   m2ipath = m2ipenv
  24.  
  25.   COUNT m2ipath||"*"
  26.   whoops = RC
  27.   nbitems = RESULT
  28.  
  29.   DO WHILE whats~=6
  30.  
  31.    GETNAME m2ipath||posdock
  32.    whats = RC
  33.    ndock = RESULT
  34.  
  35.    IF whats = 6 THEN BREAK
  36.  
  37.    nbitems = nbitems - 1
  38.  
  39.    IF RIGHT(ndock,2)=".D" THEN DO
  40.  
  41.       newpath =  m2ipath||ndock
  42.  
  43.       GET WINDOW newpath
  44.       wopen = RESULT
  45.  
  46.       IF wopen = 0 THEN DO
  47.          OPENDRW newpath
  48.          tmps = TIME(s)
  49.          DO WHILE TIME(S) < tmps+1
  50.          END
  51.       END
  52.  
  53.  
  54.       m2ipenv = newpath||"/"
  55.  
  56.       CALL explo
  57.  
  58.       IF wopen = 0 THEN CLOSEDRW newpath
  59.  
  60.  
  61.    END
  62.  
  63.    posdock = posdock + 1
  64.  
  65.  
  66.   END
  67.  
  68. RETURN
  69.  
  70.